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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE Fee AND copiee 
; ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Pp 


S 
I 
: N OF THE ABOVE etd NOTICE. THIS SOFTWARE OR ANY OTHER 


Onm--OoO-4 
=o22Z2=z 
xvVor- 
mer <wm 


USI1O 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepPORaT he NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS wig 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


e@e e@e Ge Ge Ge Ge Ge Ge 
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3 Facility: rms32 
; Abstract: 
; this module is the highest level control routine 
to perform the $create function. 


; Environment: 
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star processor running starlet exec. 
; Author: L F LAVERDURE, Creation Date: 8-MAY-1977 
; Modified By: 


v03-008 RASGCO6 Ron Schaefer 33-Apr-1984 
Revise the searchlist continuation rubes/orrers. 


V03-007 RAS0244 Ron Schaefer 23-Jan-1984 
Add SDEVDEF macro. 


v03-006 Bassi Ron Schaefer 6-0c t-1983 
ae e pores and SCREATE searchlist looping logic into 
ngt e routine. Update error checking logic to only 
loss or certain errors, not for all. 


v03-005 RASO197 Ron Schaefer 5-0ct-1983 
Add support for searchlists with create-if. The 
method to try straight-forward SOPEN on ALL elenents 
of the search List. f no file is found anywhere, then 
do a create-if ACP operation on the first location. 
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Move network specific code from RMOCRECOM to this module and 
add support for the create-if (CIF) option. 


v014 REFORMAT D M WALP 25-JUL-1980 

v013 RASO003 R A SCHAEFER 27-NOV-1979 
allow any record format for bio access. 

v012 TMHOO01 TIM HALVORSEN 13-OCT-1979 


fix wildcard check to use the wildcard summary bit 
rather than checking explicitly for we name,type,ver. 


v011 RANOOO2 R A NEWELL 11-SEP-1978 12:00 
rms32 isam modification. redefinition of entry points to 
resolve out of range branches. 


v010 JAK0001 J A KRYCKA 24-AUG-1978 07:53 
miscellaneous clean-up prior to decnet v1.0 code freeze. 
skip organization dependent code on network operations. 


2 V03-004 JWwHO215 Jeffrey W. Horn 13-Apr-1983 
Fix broken branch. 
v03-003 LyA00e Laurie Anderson 53-Sep-1982 
If this is a Restart create operation, then just go and 
open the file, using OPEN. 
v03-002 KBT0175 Keith B. Thompson gSoAug; 1962 
Reorganize psects and make entry point single ‘$' 
V03-001 RASO084 Ron Schaefer ennera 1962 
Force stream format files to have RAT non null. 
0 v02-018 CDS0001 C Saether 5-Feb-1982 
Store GBC in ifab from fab. 
0 V02-017 JAK0068 J A Krycka 29-DEC-1981 
3 Preserve alternate success code on network exit path. 
0 V02-016 MCNO00S Maria del C. Nasr 10-Feb-1981 
Make sure magtape is mounted before creating file. 
V02-015 JAK0048 J A_KRYCKA 25-SEP-1980 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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Be orsa:4s ERMS SRCTRASOCREAT. 
; bit offset to file options longword 
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Include Files: 
3; Equated Symbols: 
Own Storage: 
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BDO000 ee NIECE 
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DECLARATIONS 


1 8 
ATE ROUTINE” "SSEP=1986 PO:de:8 ERmsvsaclansocreat.mar;1 "#8 (4, 


~SBTTL RMSSCREATE = SCREATE ROUTINE 


RMSOCREAT 
vOe-008 Re 


++ 
RMSSCREATE 
RMSSCREATE - 


this routine performs the highest level $create processing. 
its functions include: 


1. common setup and checks 
2. dispatch to organization-dependent code 
which calls common create routines 
Calling sequence: 


entered from exec as a result of user's calling sys$create 
(e.g., by using the $create macro). 


; Input Parameters: 

ap user's argument List addr 

; Implicit Inputs: 

the contents of the fab and possible related user interface 
blocks. 


; Output Parameters: 


r0 status code 
ri destroyed 


Implicit Outputs: 
the various fields of the fab are filled in to reflect 
the status of the created open file. (see rms functional spec for 
a complete List.) 
an ifab is initialized to reflect the created file. 


a completion ast is queued if so specified by the user. 
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SOOSoSCoCOCOOOCOOoOooooooooooooooooooooooooooooooo mo 
SOOCOCSCSSSOOSOOSCSOOSOOCOOSOOOOOSOOOOSOOOOOSOOSOOOOOOOOOOOOOOOOOoOO 


Completion Codes: 

standard rms (see functional spec for list). 
; Side Effects: 
none 
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SENTRY RMSSCREATE 
STSTPT see ae 
FFF7" 30 BSBW RMSF SETI ; do common setup 
03 69 38 4 BBC #IFBSV_RESTART,(R9) ,3$ } gee if this is a restart operation. 
FFFO’ 31 BRW RMSOPER_ALT ; Yes, just make it’ an open call. 


[NOTE: DOES NOT RETURN ON ERROR 


: an ifab has been set up 
; perform various checks 


eb be st 


LPF PANINI AIAISIWNIILDINPNPIPININPONININ) 9 9 9 OP S| MQOOOCOOOOCOCOCOCOOOOOOOOOOO@OD wo 


3$: SSB #IFBSV_CREATE, (R9) 3 remember we're doing create 
16 AB 01—s 89 BISB3 #FABSM-PUT,FABSB_FAC(R8) ,- 
22 A IFB$B_FAC(R9) 3; imply put access 
ASSUME FABSV_BRO EQ FABSV_B10+1 
22 a9 O02 O CMPZV «= #FABST_B10,42, 1FBSB_ FAC(R9), - 

0 #3 ; both bre & bio set? 

0 BNEQ 5$ > bra not 
22 a9 2 BICB2 #FABSM_B10,IFBSB _FAC(ROD sleer "sto Cim 


plied 
$$ 3; by bro without peatetéttons) 


validate rfm 
ASSUME 
ASSUME 

8 90 MOVB - 

9 9) ; save rfm in rfmorg 


ofw oO— 
m 
= 
DOOOOSOOSOSOSOOSOOSOOSOOOOOOOOOOOOSOOOOSOOOSOOSO »X7- 


o 
— 
—Ow wv 
Se Sa 
>>> PP od 
co 
@o m co— 
= So So Pr 
SOOCCOCOCOOCOCOCSOSCOSCSOOSOSOOCOOOSOOOOO SOOO OOOOOOOOOoOO 
BBB EB EMMI III AILRIPIPPINPINPIPINPINPIPPOPINPINIPINIPNPD) 2 SS 2 OO | 2 OOOO 


; check for rfm in supported range 


05 BBS #1FBSV_B10,- 
09 22 a9 IFB$B_FAC(R9) 108 ; don't check for bio 
06 %1F AB 91 CMPB  —s FABSBRFM(R8) ,#FABSC_MAXRFM 
03 «1B BLEQU 10$ 
0083 = 31 BRW ERRRFM 


set mrs, gbc, Irl, rat, and fsz from fab 


WRI 20 OOO NAME WIN 9 ODO NAMU EWN OOO NA UE WIN 0 OD NAUE WN OOONOUE WN" OO0OnN OD 
Sete te 


MD OVNLNIMM OOOOOVOS FOS DDD DWDWDOFPOOPCAOAASOMVO SD F OLOOCCOCOOCOSCOS DOGOO 


10$ MOVW ty trent ths 
IFBSW_MRS(R9) : 
CMPB 0s FABSBRFM(R8) ,#FABSC_FIX: fixed Length rfm? 
OA 1 BNEQ 208 ; branch if not 
38 A 8 MOVW Hs tea tots { 
A JP ROW LAL CR ) ; save fixed length 
0 4 BGTR 0 
Ww 1 BRW ERRMRS 3; branch if not > 0 
48 A BO 20$ MOVW FABSW_GBC(R8) ,- ; store gbc 


<2 | 
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yO. O08 RMSSCREATE - SCREATE ROUTINE mets 91:42:28 YRMS SRCIRMS CREAT .MAR; 1 ° (4) 
64 A : 44 fpSU GBC (RD) 
0 }§ 45 BGEQ 1 ; ok if non-negative 
00A 5 $ BRW RRGBC : else it’s an error 
2 r 21$: 
2 ‘8 3; force stream format files to have RAT non-null. tf 
2 31 ASSUME FABSC_STM LT FABSC_STMLF If 
8 § ASSUME FABSC_STM LT FABSC_STMCR i 
1F AB 91 $2 37 CMPB FABSB_RFM(R8),- 3 stream format? If 
os B28 2? #FABSC_STM If 
A if 5¢ § BLSSU 22$ : nope If 
07 93 005 5 BITB #<FABSM_CR!FABSM_FTN!FABSM_PRN>,- NI 
1€ As 06 58 F ABSB_RAT(R8) ; Carriage control already set? N] 
04 i 3 59 NEQ 22$ 3 ok 
1E A8& f 8 64 60 BISB2 #FABSM_CR,FABSB_RAT(R8) ; force RAT=CR 
1E AB 90 0068 261 228: MOVB  FABSB_RAT(RS),- 
51 a9 3 $6 IFBSB_RAT(R9) 3 save rat 
6D 6 
006D 64; 
006D 65 ; check that only one of ‘prn', ‘cr’ and ‘ftn' rat bits are on 
0060 66 ; 
Bpep 67 
51 D4& 006D 68 CLRL RA ; zero-extend the field 
51 16 A8 _ F8 BF 8B O06F $9 BICB3 #255\<FABSM_CR!FABSM_F TN! FABSM_PRN>,FABSB_RAT(R8) ,R1 
06 51 O02 €1 0075 0 BC #FABSV_PRN,R1,23$ 3 branch if not prn 
03 1F AS 91 0079 = 271 CMPB ss FABSB_RFM(R8) .#FABSC_VFC: rfm = vfc? 
69 12 007D i EQ ERRRAT : branch if not 
007F ‘ f ASSUME FABSV_FIN EQ 0 
007F 74 ASSUME FABSV_CR EQ FABSV_FIN+1 
tha 75 ASSUME FABSV"-PRN EQ FABSV_CR+1 
64 17'8F 51 €1 ane 6 23$: C R1,1°#*B00010111,ERRRAT ; branch if yes 
0084 78 ; 
3¢ 79; if vfc record format, check for 0 fixed header size and if 
8 4 80 ; found make it 2 bytes 
gah 
03 1F AB 91 0084 58 CMPB FABSB_RFM(R8) ,#FABSC_VFC 
16 12 33 8 4 BNEQ 30$ 3; omit check if not vfc 
3F AB 90 008A 285 MOVB FABSB_FSZ(R8),- 
SF AQ 08D 6 AEGSS_F 5 (RV 3; save fsz value 
6s 3 F 7 BNEQ 9$ 3; branch if value specified 
SF AQ 9 1 8 MOVB #2, 1FBSB_FSZ(R9) 3; else set default value 
0 E1 3 9 29%: BBC #F ABSV_PRN,- 
06 51 A 9 0 IFB$B_RAT(R9) , 308 : branch if not prn 
02 AQ so9 9A 1 CMPB IFBSB_FSZ(R9) #2 : fsz > 1? 
50 +f + 35 $08 BLSSU  ERRFSZ 3: branch if not 
FF5D® 30 OOA 94 BSBW RMSPRFLNMALT 3 process file name 
65 50 €9 on 95 BLBC RO,EXIT 3 exit on error 
6A 18 €0 ng 38 BBS #FWASV_WILDCARD, (R10) ,- 
8 A 9 ERRSYN 3 no wildcards allowed 
6A E1 : 4 CIF BBC cL VARY ASL PRESENT . (R10) .~5 no problem if no searchlist 
68 9 €0 AE 00 BBS #FABSV_CIF+FOP,(R8),- ; special loop if CIF 
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yO. O08 RMSSCREATE - SChEATE ROUTINE $731 3be OB: 53i28 RMS ..SRCIRMSOCREAT.MAR; 1 . (4) 
62 } 1 DOCIF 
: § ; dispatch to organization-dependent create code 
8 x 
06 O04 EF B § SETORG: EXTZV #FABSV_ORG gS ABS .ORG.@ 
50 1DA B FABS$B_ORG(RB) ,R ; get organization code 
a9 50 (9 B8 8 MOVB RO, IFBSB ORGCASE (R9) ; and save for dispatchin 
6A E per 4 8B #FWASV_NODE,(R10),20$ _; branch if network operation 
869 O05 €E C 1 BBC V$V~SQD, [FBSL_PRIM_DEV(R9), 10 ; branch if not magtape 
469 13 €1 00C4 11 BBC #DEVSV_MNT, IFBSL_PRIM_DEV(R9),ERRDNR ; error, if magtape not mounted 
069 15 €0 bce 1 BBS #DEVSV_DMT, IFBSL_PRIM_DEV(R9),ERRDNR ; error, if magtape marked for 
cc 135 10$: CASE TYPE=B,SRC=R0,- 
occ 314 DISPLIST=<RMSCREATE1,C2_BR,RMSCREATE3> 
006 15 ; pick up correct routine 
0D6 16 
0D6 73 
BaDe 18 ; error returns 
006 19 ; 
ints ? RMSERR ORG t ted 
3 org not supporte 
60 8F 93 00DB § BITB #F ABSM_B10!FABSM_BRO,- 4 i 
22 Ad 00D IFB$B_FAC(R9) ; either bio or bro set? 
29.0 13 it 4 BEQL EX ; branch if not (error) 
FFIiB® 31 Ope 2 BRW RM$BIO_CREATE 3 go do block i/o create 
0050 =«—‘31 Baee 208: BRW NTCRE ; helper branch 
Goes 9 ERRRAT: 
1E 10 OOE 0 BSBB ERROR 
Been 31 RMSERR_WORD RAT 3; both ‘cr’ and ‘ftn' bits on 
49 : ERRRFM: 
1A 10 QOEC 4 BSBB ERROR 
OQOEE 5 RMSERR_WORD RFM 3; bad rfm field 
OOF O $$ 
ita ; ERRF SZ: 
16 =6©10 org 8 BSBB ERROR 
Obes ip RMSERR_WORD FSZ : fsz doesn't specify ‘put’ 
Bere 41 ERRMRS: 
12 10 OOF4 4g BSBB ERROR ; 
BOF re RMSERR_WORD MRS ; mrs zero for fixed Length rfm 
Sf 45 ERRGBC: 
OE 10 4 rf BSBB ERROR 
4 rf 4 RMSERR_WORD GBC ; GBC must be non-negative 
FC 49 ERRDNR: 
OA 10 FC 50 BSBB ERROR 
ore 2) RMSERR_WORD DNR 3; device not mounted 
68 3D &€0 Q1 ° i ERRSYN: BBS #F ABSV_OFP+FOP, (R8) ,- . 
A6 1 4 ; wild card o.k. if ofp set 
02 10 0104 5 BSBB_—_— ERROR 
' $ 28 RMSERR_WORD SYN : wild card seen 
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VOL~000 RMSSCREATE - Stee Ate ROUTINE §-§ ets 7 On d2 28 YRMS SRCIRMS CREAT.MAR; 1 . 
1 
50 9 SX 198 33 ERROR: MOVZWL a(SP)+,RO 3; pick up in-line error code 
FEF2° 31 ibe 1 EXIT:  BRW RMSCLSCU ; clean up and return to user 
OOOO0000'EF 17 1 3 86 C2_.BR: JMP RMSCREATE2 
11 64 
114 65 ;++ 
114 68 ; Process searchlists for a create-if operation. 
otie 67 ; The method is to loop thru the entire searchlist trying to access 
114 68 ; the file, if we find one enyynere, we proceed to RMSOPEN_CIF to finish 
0114 3 3 the normal SOPEN. If no file is ever found, then we discard the 
0114 0; exhausted FWA, re-parse the filespec from scratch and proceed to do 
Brie re 3: an ACP create-if operation on the first element of the List. 
0114 373° 
FEE9' 30 0114 74 DOCIF: B8SBW passe r0t0 3; set up directory 
06 50 Be 0117 75 BLBC RO,10$ 3 this element failed 
att 0 O11A 76 BSBW RMSACCESS 3 try to access the file 
15 50 33 011D 77 BLBS 3; found it, continue with OPEN 
FEDD' 30 6188 78 108: BSBW RMSCHK_SLIST1 3; get next element in List 
EE 50 «E88 O1 79 BLBS RO,DOCTF 3; and try it 
E2 51 5 0126 80 BLBC EXIT : don't continue either 
FEDS' 30 0129 381 BSBW RMSDEALLOCATE_FWA > release exhausted searchlist 
FEDI" 30 O12C S BSBW RMSPRFLNMALT ; get first element again 
D9 50 5? 012F 8 BLBC RO,EXI 3; Tailed on second attempt! 
FF7D 1 31 ¢ Se BRW SETORG 3 and proceed with create-if 
FEC8* 31 bis2 36 20$: BRW RMSOPEN_CIF 3 continue with open 
0138 Hh 3++ 
0138 9 ; Network specific code for S$CREATE. 
0138 90 ;-- 
0138 91 
Bi38 38 NTCRE 
FECS*’ 30 01 9 BSBW NTSACCESS : Perform network access function 
32 50 €9 0138 94 BLBC ,60$ ; Branch on failure 
04 68 26 €1 O1z5 95 BBC #FABSV_SQO0+FOP,(R8),10$ ; Branch if SQ0 not specif ted 
014 9 SSB #1FBSV~SQ0, (R95 : and save bit in IFAB 
10 69 Hi EO 0146 97 108: BBS #IFBSV_NSP,(R9) ,3_$ ; Branch if task-to-task 
06 68 9 + O14A 98 BBC #FABSV_CIF+FOP,(R8),20$ ; Branch if CIF not specified 
FEAF 30 OQ14E 399 BSBW NTSOPERN ; Try to open file via remote FAL 
19 50 €8 0151 400 BLBS RO,50$ : Branch on successful open 
136 tt 3; Note that we could check for errors 
154 4 § : such as RMS$_DNF, DNR, PRV, WLK, etc. 
154 40 3 to avoid getting same error on create 
FEA9" 30 0154 404 208: BSBW NTSCREATE : Create file via remote FAL 
10 50 €9 0157 405 BLBC RO,40$ : Branch on failure 
01 ; 15A 406 30S: PUSHR #*M<RO> 3; Save possible alternate success code 
FEA1' 15C rth BSBW RMSF ILLNAM 3; Fill in NAM block with resultant name 
BA O1SF 408 POPR #*n<RO> 3; Restore status code 
05 68 E1 0161 409 BBC #FABSV_CIF+FOP,(R8),40$ ; Branch if CIF not specified 
165 £19 RMSERR CREATED ; Return alternate success code 
a 3] 16A 41 $08: BRW RMSCREATEXIT ; Join common create code 
0° 31 190 t1§ 50$: BRW RMSOPEN_CIF :; Join common open code 
1 8 41 3 (which will call RMSFILLNAM) 
17 414 60$: RMSERR CRE,R1 ; Establish default error code 


RMSOCREAT 
v04 


1:13: AX/VMS Macro v04-00 P 9 Ri 
4:52:28 YAMS SRC RMSOCREAT.MAR; 1 — (4) T 


; Try to map SS code to RMS code 
; join common create code 
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RMSOCREAT 
Symbol table 
$$.PSECT_EP 
SSRMSTES 
FWASV 

FWASV 
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RMSOCREAT DISPATCH FOR CREATE OPERATION so SEP=1 138% 9} ‘17 +36 AX/VMS Macro V04-00 Page 

Psect synopsis “SEP-1 4: RMS.SRCIJRMSOCREAT.MAR; 1 
+eeeeceeca eeeeecoe @-+ 


PSECT name Allocation PSECT No. Attributes 


. AB 0000000 3 00 ¢ 0.) NOPIC USR CON ABS LCL oie NOEXE NORD NOWRT NOVEC BYTE 

RMSRMS 000017B (¢ 379.) O1¢ 1.) PIC USR CON REL GBL NOS EXE RD NOWRT NOVEC BYTE 

SABSS 0000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
Ganceucessneusessececsaus} 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

patetes tees cen 3 00:00: 8-19 0:00:00.54 

ommand processin :00:00. :00:06. 

fess |” ° $36 00:0090:59 69:00;88:26 

pyabo} table sort 0 00: 8:03 °3¢ 0:00:02.41 

s 2 87 00:00:02.09 00:00:04.44 

ee, table output 13 00: 8:8 10 es She 

Psect synopsis output 1 00:0 7 -05 0:00:00.25 

Cross-reference output 0 00:00: 9-99 00:00:00.00 

Assembler run totals 570 00:00:15.31 00:00:44.16 


The yezt ine set Limit was 1500 pages. 

60565 bytes (119 pages) of virtual memory were used to buffer the intermediate sod e. 

There were 60 pages of symbol table space at yocesee to hold 1186 non-local and 23 local symbols. 
418 source lines were read in Pass 1, producing 14 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


et 


Macro Library name Macros defined 
“$255$DUA28: ree Seah gy fe -MLB;1 11 
“$255$DUA28: (SYS MLB; 1 1 
~$255$DUA28: eye IBISTARLET. MLB; 2 6 

TOTALS (all libraries) 18 


1294 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOCREAT/OBJ=OBJ$:RMSOCREAT MSRC$:RMSOCREAT/UPDATE=(ENHS:RMSOCREAT) +EXECML$/LIB+L1B$:RMS/LIB 
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